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IDENTIFICATION 
PRCX)UCr CODE: MAINDBC-15-D2CC-D(D) 
PRODUCT NAME: PDP-15 Hiai SPEED READER TEST 

DATE REV. OCTOBER 16, 1970 

MAINTAINER: DIAGNOSTIC OROUP 

AUTHOR: JOTN W. RICHARDSCN/EARL L. BOUSE 




;\iiL;'i'Hf't,"r 

The ['DP-15 High Speed Reader Test verifies the operational status of the 
reader by performing tests on the reader's control logic and mechanics. 
The control logic tests include error halts with provisions for looping 
on any failing test . The mechanical tests provide TTY print-outs in 
case of error. A test tape is provided for use with the mechanical test. 
This should be used in lieu of a tape loop, since a loop will not provide 
proper test operation. 

The control logic tests should be run first, and then the mechanical tests 
(total of 3) must each be manually r.tartiid by thn operator. 

requirement;: 

Equipment 

A standard PDP-15 equipped with h hi^;h r,pf-ed renfler . 

Storage 

The prosrara requires approximately 3250 (octal) locations in field 0. 

LOADI IG PROCEDURE 

a. Set the ADDRESS switches to 17700; the BANK MODE switch on a 1. 

b. Press I/O RESET, and then READ-IN. 

c. The program is not self-starting at the completion of loading. 

STARTING PROCEDUBE 

Test Tape Generator - ^^00 

Timing Loop for Setup - r?50 

Control Logic Teste - 300 

Out of Tape Test - ll^OI 

Lata and lOT tests - J'lOO 

Variable Reader Speed Test - ;^U00 

Head handomly and Stall Randomly - r^^OO 

The Control Logic Te-t contains a series of individual tests which are 
automatically executed by the program. The individual starting addresses 
may be found after the Table of Error halts appearing in section 6.1. 



OPERATING PROCEDURE 

A test tape is supplied with the program. If a nev test tape is desired, a 
subroutine is included which will punch the necessary patterns. To punch 
one of the two patterns necessary, use the procedure below. If a new 
test tape is not needed go on to section 5.1. 

a. Set the ADDRESS switches to 200. 

b. Set the AC switches to indicate the pattern desired. 

ACS on a 1 = Punch alternate frames of all I's and O's. 

ACS 1 on a 1 = Punch a binary count. 

AO'C P on a .1 = Punch all I's. 

". Ir.v,;; I/O RK;;KT, ,,n.J l.h-T, I'/rrtKT. Th'- f,:,.l.i,-ru will b- w,n,:h,:l ur.t.ii 
I'KOCUAM ;;'l'()l' i;: ftrcy.i-fii . 

If u t.ripe loop if, to tjp mndrt, l,ho pattern rniirii, i '■ '-ontlnu.rri at >.h'i ::pli''-. 
Header :jetup Koutine 

The use of this 'routine is interided for Field :;f;rvioe and Production only. It- 
purpose is to provide a variable delay timing loop to expedite the setup of 
the reader timing. 

A tape with a punched pattern of alternate frame:j of all I's and O's is usually 
used for the setup procedure. However, the routine will allow any patf-rn to 
be used. The Test Tape T-enerator will punch the required pattern. 

a. Set the ADDRESS switchm. to ?50. 

b. Place the tape in t.he reader. 

c. ;;et the ACS to 600000. This will i,,]v<- n ::I.<,A \ f'l- lay) of approxirnM.r. |y 
',"'0 mi I llseconds . 

'I. In':;:i RKIU'IT ami l,h-Ti IITAHT. 

Th- rc.iiUn- r.'-ui:; U, fnmrr, m„,I Umt, :;l.alh;, -t.-^th-r K, Vr-un>-.: ,•,,,,.1 :u,oi,hi.T :;l,;,li, 
"I.e. Th'- i:t.iill time may he varied whil-- l.h'- |)ro(/r,-un I;; runriin//. 

Program Operatinp; Procedure 

Control LOi'ic Test s 

The tost tape supplied contains the necessary test patterns for all control lop-.ic 
tests. The pattern used is an all ones pattern. This pattern is duplicated 
three times on the test tape even though only one pattern is used. Blank tape 
separates each pattern. One pass of the control lof?ic tests requires approximat.- ly 
one foot of test tape. 



Any errors encountered will cause a program halt. Hie nature of the error 
is determined by the address of the halt. The program will not exscute the 
next test until the error is corrected. The halts are tagged, and may be 
identified frcm the table of error halts appearing at the end of this document. 

a. Place the test tape in the reader with the punched pattern over the 
reader's photo cells. 

b. Set the ADDRESS switches to 300, and all ACS equal to 000000. 

c. If and API option is installed, place ACS 6 on a 1. 

d. Press 1/0 RESET, and then START. 

The program will respond with a carriage return and line feed on the KSR-33 
teleprinter, and begin Ttest 1. 

Assuming no errors the program will halt with C(PC) = 1401. 

The j-eader No Tape Test is performed next. 

e. Renove the test tape froti the reader. 

f. Set the ADDRESS switches to 1401. 

g. Press I/O RESET, and then START. 

Assuming no error halts, the program will halt with C(PC) = 1434. 
h. Place the test tape in ttie reader and press continue. 

Assuming no error halts, the program will halt with C(PC) = 1444 
i. Turn the Reader "CBT LINE" to test for setting the "NO-TAPE" flag. 
j. Press CCMTINUE 

The data and mechanical tests are performed next. 

There are three data/'mechanical tests. Each test must be manually started by 
the operator. All tlaree tests use the same tests tape pattern »4iLch is a 

binary count. 

When placing the test tape in the reader, plaoe the punched pattern over the 
reader's photo cells. This is necessary' to enable the program to synchronize 
properly. When starting any of the three tests secticais the program will read 
the test tape until it finds one frane of all O's. Ihe program then enters 
the test sequence. 

If an all O's character cannot be found, the message "CANNOT SYNC" is printed, 
followed by a halt \-ri.th C{PC = 2017 (tagged PRHLT4) . Press CCMTINUE to try again. 
Inability to sync may be a result of the lack of an all O's character, or 
possibly the reader buffer will not clear.. 

5.2 Basic Data Checks 

This test req'jires a fan-folded best tape v.'ith a punched binciry count pattern 



a. Place the test tape in the reoder with the punched pottern over the 

reader's photo cells, 

b. Set the ACS to 000000. 

c. Set the ADDRESS switches to 2100. 

d. Press the I/O RESET, and then START. 

The data check test is divided into four ports. A test is first made 
using RSA and RRB, followed by RSA and RCF. Selecting the reoder in 
binary mode is then done by using RSB and RRB, followed by RSB and 
RCF. The four ports are designated as A, B, C and D respectively. 

Assuming no e.. jr., the program will halt with the li = 2243. If the 
test proves error-free go on to paragraph 5.3. 

Error Identification 

If an error occurs o print-out takes place owing in order, the subtest, 
whot the data being read was expected to be, and the dota read from 
the reader buffer. 

The print-out will appear as: 



A 


GOOD 


XXX 


BAD 


XXX 


B 


GOOD 


XXX 


BAD 


XXX 


C 


GOOD 


XXXXXX 


BAD 


XXXXXX 


D 


GOOD 


XXXXXX 


BAD 


XXXXXX 



ACS may be placed up to halt the program when an error occurs. The 
C( P';) will equal 2125 when halting during Part A, 2161 during part B, 
and 3012 when halting during Part C or D. Press COi^lNUE to read the 
next frame in sequence. 

The Variable Reader Speed Test should be next performed. 
5.3 Vorioble Reoder Speed Test 

This test requires a fin-folu test tape, with a punchc(. binr.ry count outl'-rn. 
The reader is selected using the Hlik iOT only. 

AC switches 2 through 17 control the speed of the reader; the slowest 
reader speed is obtained with all ACS up, and normal speed with alt ACS 
down . ACS and 1 have no effect on the reading speed . 

a. Place the test tape in the reader with the punched pattern over the 
reader's photo cells. 

b. Set the ADDRESS switches to 2400. 
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c . Press I/O RESET, and then START. 

If no errors are indicated, go on tfe paragraph 5,4. 

Error Identification 

If an error occurs, a print-out will giv* in order, what the data read 

was expected to be, and the data read from the reader buffer. The print-out 

will appear as: 

GOOD XXX BAD XXX 

ACS will provide a halt on error when in the up position. The halt 
will occur with the PC = 2435. Pressing CONTINUE will cause the 
next frame in sequence to be read . 

5.4 Random Read and Stall 

This test requires a fan-fold test tape with a punched binary count 
pattern . 

The Random Read and Stall routine reads a random number of frames 
with a fixed stall time between each frame. After reading the random 
number of frames the routine reads a random number of frames at full 
speed. The routine reads a maximum of 14 frames with a stall between 
each frame, and a maximum of 51? frames at full speed. 

ACS Functions for Section 5 

ACS FUNCTION 

Stop on error (1) 

Don't stop (0) 

1 'Scope mode (1). Ignore errors. 

a. Place the test tape in the reader with the punched pattern over the 
reader's photo cells. Set the ADDRESS switches to 2500. 

b. Press I/O RESET, and then START. 

The test will run until stopped by the operator. 

Error Identificotion 

A print-out occurs for each detected error. The format is as shown below: 

GOOD XXX BAD XXX 

The type of error which will occur most frequently with this test will be 
when the test tope gets out of sync with the program. The bad data will be 
+ 1 count or more of the good data. 



After each print-out the program continues on In sequence. 
Sub-Routine Alyatracts 

2 through 7 are repeated using reader lOT RSB, ' 

Test 1 - Illegal Instn^rt-I^^ 

An illegal instruction of 700110 is executed. If an RRB or Rnr ir,=+,.„.+ - 

^.l.rcTcT- 3l1 'Tr °' *^^ '' ^"^ ^^ changed^^anTaferro^r^h r ^r^s 
VI th CCPCJ - 316. No tape movement should be observed during this test. 

Test 2 - Test for R eader Flap ; Cl^fL-r^^ 

scope mode. " ^'^^ ^ ""P' *"^ P^*^^ CONTINUE to enter 

Test 3 - Set the Re ader Flag and Teat for Illegal RSF 

Ji-^t 'r..°- " ^^^ ^l^iP occurs, an error halt occurs with C(PC) = 36l 
If no skip occurs, the reader flag is next tested. An RSF lOT is execut;d 
end If no skip occurs, an error halt with C(PC) = 355, or 356 deLndinf 

aftrr^r^rLlt^^'eLr^lL^^^r^- ^^-^- -^^"'^P -^ P-S^CoVlNUE 
!iny error halt, will place the program in scope mode. 

Test h - Clear the Re ader Flag w- uh RRB and RCF 

The reader flag is first set with an RSA or RSB lOT and then immediatelv 
cleared by, executing an RRB. If the test is successful, the f!^ is Sin 
set and then cleared by executing an RCF lOT. If RRB does not Tl.ll tT 



f-1." ^-^earea oy executing an RCF lOT. If RRB does not clear the 
flag, an error halt occurs with C(PC) = 1.23 (RSA) or U2it rHqnl t? Irt ^ 
not oxear the flag, a halt occurs with C(PC) ='{ 3 (RSA?o?gi-(RSB)%i::: 
ACSl up, and press CONTINUE to enter scope mode. J-i-^«bu;. Place 
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Teat. S.r Clear the Reader Flag with RVA or RGB 

The reader flag is first sot uslnf: eithpr the I-il'.A or RSB lOT. Tho reader 
is again selected and the flap; tested for beinp; cleared using the lOT RSF. 
The flag should be cleared immediately after an RCA or RSB lOT. If not, an 
error halt occurs with C(PC) = 515 (RSA), or 5l6 (RSB). Place ACSl up, and 
press CONTINUE to enter scope mode. 

Test 6 - Interrupt Tast 

An I/O Power Clear (CAF) is first executed, followed by a 210 MSEC stall. No 
interrupt should occur at this point. If an Interrupt occurs, the I/O status 
word is tested to determine the device which caused the interrupt. If the 
reader caused the interrupt, an el-ror halt occurs with C{PC) =636. A spurious 
interrupt will cause a halt with C(PC) = 61*0. The AC will contain the I/O 
status word at each halt . 

If the atoove test is r.uccessful , an attempted program interrupt using either the 
RSA or RSB lOT is then performed. The reader is selected, and a stall of 
100 Mi SC is done, waiting for a program interrupt. If no interrupt occurs, a 
halt w^th C(PC) = 625 (RSA), or 626 (RSB) occurs. Place ACSl up and press 
CONTINUE to enter scope mode. 

Test 7 - Reader API Test 

Test 7 is performed only if ACS 6 is on a 1 to indicate that an API option is 
installed. The routine assvunes the readers' API channel address to be 50, and 
API priority level 2. 

The first test performed makes certain a reader API break does not occur when 
the reader flag is 0. An error ha].i, occurs with the PC = 1021 in the event of 
an API break. 

The reader flag is then r>f.-t by the program, and an API break is attempted. No 
API break results in nri error halt with the PC = 10U7. If an API break occurs, 
the API status word ic read and tested for level 2 active. If level 2 is not 
active, an error halt occurs with the PC = IO56. ACS 1 on a 1 will enable 
a scope loop for any of the above errors. 

Test 8 - Reader No-Tape Test 

Test 8 tests the response of the reader logic under no tape conditious. The test 
tape is first removed from the reader, and the test is started from location ll40i. 
A test is first made to determine whether the no tape indicator has been set 
by the absence of tape in the reader. If true, the reader flag is then tested 
to make sure it had been set as a result of the no tape flag. If both tests 
are successful, the program halts at location 11*23, at which point the tape 
is replaced in the reader. 



-8- 



The TAPE FEED button is then pressed and isleased. Pressing CONTINUE 
will cause the program to check fo. ;'ie no tape Indicator being reset 
by TAPE FEED. I? all three of the above tests are successful a halt 
occurs at location 1430. 

ERRORS 

Error Halts and Descriptions 

Error holts and descriptions are given in the tables below for the control 
Logic Tests. 

'Scope m.-.' 1.!/ be entered for any single test by placing ACSl 
up, and pressing CONTINUE after the error halt. 'Scope mode 
may also be entered by restarting the desired test. Restarting addresses 
are given in the tables immediately following each error halt table. 

Toble of Error Halts for Control Logic Tes ts 

C(PC ) TAG TEST* IDENTIFICATION 

^^^ EOl 1 700110 changed contents of the AC. 

325 E02 2 Reader flag on illegally 

55 EA03 3 Flag wasn't set using RSA 



356 EB03 



361 E04 



423 


EA05 


4 


424 


EB05 


4 


430 


EA06 


4 


431 


EB06 


4 


515 


EAll 


5 


516 


EB11 


5 



Flag wasn't set using RSB 
If no tape movement: 

If tope moved: 

Skip occurred using 700110 
after on RSA or RSB 

Flag wasn't cleared using RSA 

& RRB 

Flag wasn't cleared using RSB 

&RRB 

Flag wosn't cleared using RSA 

&RCF 

Flag wasn't cleared using RSB 

&RCF 

Flag wasn't cleared using RSA 
Flag wasn't cleared using RSB 
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"Vhe PC - tbe data read frcin the ipeader buffer after e£cfa of the halts EB12 
through £915. 



625 


EA1& 


626 


EB16 


636 


E16B 


640 


E16C 


652 


E16D 


1021 


E17 


1047 


E18 



1056 



1401 



E19 



NonaPE 



1412 


5V20 


8 


1421 


EA20B 


8 


1427 


EA2(JC 


8 


1434 


PKHLT3 


8 


1442 


ERR2)K} 


8 


1444 


OFFLINE 


8 


1452 


)i^am 


8 


1454 


PHLT3A 


8 



No intern:^ occurred usina RS& - waited 70 MS. 

No interrupt occurred using BSB - waited 70 MS. 

Reader caused internet vAien not selected 

furious internet 

Interrupt not fron reader AC = I/O statiis word. 

An API break occurred with the reader flag cleared. 

No API break fron the reader with the reader 

flag set. 

An API break occurred, but priority level 2 is 

not active. McQ^ae. another device caused the 

break, or the reader is on the wrong API level. 

End of tests 2-7. Set the PSXSSSSS switches to 

14QI, and press I/O KbSh'i', and then SOfSa to begin 

test 8. 

NO TAPE flag not set. 

Reade r flag won't_set with tte ND-T&EE flai set. 

Hp^pler flag won't clear with the ND-TRPE flag set. 

R^lace tape in the reader and Press Continue. 

NO-TOPE flag didn't clear. 

lUltJ Reader "off". 

No-Tape didn't set v*ien the reader was turned off-line 

End of the NO-TOPE test 
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Toble of Restarting Addresses to Initiate 'Scope Mode 



'Scope mode should normally be initiated by placing AC51 up, and pressing 
CONTINUE after an error holt. In the event that 'scope mode must be 
entered by restarting any one test, the starting addresses for tests I through 
7 are listed in the table below. Tests 3 through 7 use the lOT instructions 
RSA, RSB, RRB, and RCF, and the starting address for any one test will 
"ory according to which iOT is to be tested. Place ACS I up before 
restcT-ting. 



Test * 'Scope IOT Operator Action 



Restart at 
Address 



1 


Illegal IOT 


2 


RSF 


3 


RSA 




RSB 


4 


RSA and RRB 




RSA and RCF 




RSB and RRB 




RSB and RCF 


5 


RSA 




RSB 



Press I/O RESET, o. id then START 300 

Press I/O -ESET, and then START 321 

Deposit 700104 into location 333. 331 

Deposit 700144 into location 333. 331 

Deposit 700104 into locotion 333. 400 

Dep- sit 700104 into location 333, 

and 700^^:: into location 406. 402 

Deposit 700144 into location 333. 400 

Deposit 700144 into location 333, 

ond 700102 into location 406 402 

Deposit 700104 into location 333. 500 

Deposit 700144 into location 333. 500 

Deposit 700104 or 700144 into 
location 333, lo test illegal interrupt; 

SA - 600 

To test no interrupt, deposit 

700104 or 700144 into location 

333. SA - 612 
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RESTRlCTtONS 

None 

MISCELLANEOUS 

When looping on tests 2-7 the loop time is approximately 5 seconds. 

The Bosic Dota Check tests will toke approximotely 5 seconds. 

The Voriable Reader Speed and Random Reod tests each run until stopped 
by the operator with PROGRAM STOP. 

Applicotions 

Loop on Tests 2-7 of Section 1 

A loop on tests 2- T may be performed using either the RSA or RtB lOT's 

If a test tape loop is to be used make sure the pottern is continued at the splice. 

If 'ooping on tests 2-7 using the RSB lOT, moke sure chonnel 8 is 
continuously punched, ond continued at the splice. 

To loop on tests 2-7 using RSA, ploce the test tape in the reader. 

1 . Set the ADDRESS switches to 317. 

2. Place ACS 4 up. 

3. Press I/O RESET, and then START. 



-12- 

To loop on teats 2-7 using RSB, place the test tape in the reader. 

1 . Set the ADDRESS switches to lOjU 

2. Place ACS 4 up. 

3. Press I/O RESET, and then START. 

Basic Data Check Applications 

■Scope mode for part A, B, C or D of Section 3 may be entered by 
following the steps below: 

A. Place ACS 1 up, and press CONTINUE if a halt on error occurred, or 

B. Press PROGRAM STOP. 

C. Place ^S 1 up. 

D. Set the ADDRESS switches to: 

a . 2100 for part A (RSA and RRB) 

b. 2133 for part B (RSA and RCF) 

c . 2167 for part C (RSB and RRB) 

d . 2215 for part D (RSB and Rr ) 

E. Press I/O RESET, ad then START. 

9. PROGRAM DESCRIPTION 

Tests 1 through 8 are provided to find catastrophic type failures. The basic 
functions of the reader logic are first tested, and then as many timing tests 
as possible are performed. If these tests run the remaining problems will be 
in the individual data paths. 

A provision for looping on tests 2 through 7 is provided. 

The Basic Data Check tests are provided to insure that the reader is 
capable of correctly reading data from tape. All reader lOT's are used 
during the test. 

The Variable Speed and Random Read tests are designed to test the 
reader's mechanical adjustments by varying the motor speed, and 
rate of redder selection. The Binary Count portion of the test tape 
supplied provides the most stringent test. A test tape loop will not 
provide a satisfactory test, and should be used only during 'scope 
mode. 

10. LISTING 



PA6C 



19HSR 



^SR13 



.TITLE MSRlS 
/POP-15 HIGH SPEED READEfi DIAGNOSTIC - TAPE 1 
/ 

.ABS 
f 

/COPYRIGHT OCT, 20i 1970. DIGITAL EQUIPMENT CORI»,, 
/MAYNARDi MASS, 







/INTERRUPT ROUTIME 


00000 




,LOC 


00000 


000000 





00001 


600001 


JMP I 


00002 


77T777 


LAH n\ 


00003 


777777 


LAW -t 


00004 


7T7777 


LAW .1 


00009 


777777 


LAW .1 
.EJECT 



/INTERRUPT ON ILLEGALLY 



PACE 2 19HSR HSR19 



112B9 




SiZZ! 


790004 


?B2ei 


740010 


20802 


741400 


0f2IS 


600231 


00204 


740010 


00209 


741400 


00206 


600221 


00207 


740010 


00210 


741400 


00211 


600264 


00212 


600200 


00213 


600200 


ee2i« 


000000 


00219 


700204 


00216 


700201 


?0217 


600216 


00220 


620214 


00221 


202027 


00222 


100214 


00223 


740001 


00224 


100214 


00229 


740001 


00226 


342027 


0022T 


100214 


00230 


600223 


00231 


790001 


00232 


100214 


00233 


740001 


00234 


600232 


00290 




0029? 


777760 


00251 


043030 


00252 


750004 


00253 


043031 


00254 


700104 


00259 


700101 


00256 


600299 


00257 


443030 


0026? 


600294 


00261 


443031 


00262 


600261 


00263 


600250 



/T4PC LOOP GENER*TO« 

LOC 200 
BCNl L*S /TEST SWITCH RIClSTER 

RAL 

SZL 

JMP AL710 /PUNCH I'S AND 0iS 

RAL 

S21. 

JMP PBNCNT /PUNCH BINARY CquNT 

R4L 

SZL 

JMP PSWREG /PUNCH ALL I'S 

JMP BCM 

JMP BCNl 

/ 

/TAPE PUNCH ROUTINE 

/ 

PNCHA 

PSA 

PSF 

JMP ,-1 

JMP. PNCHA 
/ 

/BINARY COUNT 
/ 

pbncnt l*c one 
jms pncha 

CMA 

JMS PNCHA 

CMA 

TAD ONE 

JMS PNCHA 

JMP PBNCNT«2 
/ 

/PUNCH ALTERNATE I'S A\0 0'S 
/ 
ALT10 CLAICMA 

JMS PNCHA 

CMA 

JMP ,.2 
/ 

.LOC 290 
SETUP LAW -20 

OAC WORK 

LAS /AC»600000 = ABOUT 2d0 MS STALL 

DAC wORkI 

RSA 

PSF 

J«P ,-' 

IS? W0"K /FRAME COUNTER 

JMP ,-4 

]Sl WOPKl /STALL 

JMP ,,l 

J>-P SETUP 
f iECT 



9'kU 



15H8R 



HSRtS 



/PUNCM ALL ONIS 



8»2ft4 777777 PS^JRCG u*-* '1 
902«9 100214 JMS PNChA 

«ffa«« *0f2t9- JM» PMCMA*! 

/ 

/HIGH SPEED PAPER TApE READER DIAGNOSTIC 
/ 

/PART I, INSTRUCTION AND CONTROL TESTING 
/ 
/ 
00310 ,LOC 300 

/TEST 1, ILLEGAL INSTRUCTION 
/ 



01300 


i0a»5t 


TSTl 


JMS CRLF 




00301 


140flS 




OiM 13 




00302 


790001 




CL*1CMA 




00303 


700110 




7?«110 


/NO lOT BITS, INSTRUCTIOM 


00304 


740200 




SlA 


/BIT 14 SHOULD CLEAR AC 


00S0S 


600314 




JMP RBERR 




0130* 


103000 




JMS SCOPE 


/CHECK FOR SCOPE MODE 


00907 


600311 




jMf .♦J 




00310 


600301 




JMP TST1»1 




00311 


440013 




ISZ 13 




00312 


690302 




JMP f$Ti.2 




00313. 


600317 




JMP TST2-2 




00314 


103002 


RBCRR 


JMS SCOPE 


/iBRORi IMfORHATION DELIVERED 


00319 


740040 


e0i 


HLT 


/ILLCSALLy 


00316 


609301 


/ 


JMP TSTl*l 








/ 

/TtST 


2. TEST FOR FLAG 


orr 


00317 


203919 


/ 


L^C CKRSA 




00320 


049333 




OAC RSAB 




00S21 


709101 


TST2 


RSr 


/FLAG SHHULO BE OFF 


01322 


699920 




JMP OK 


/SUCGESSFgL TEST 


00323 


193902 




JM» SCOPE 


/CHECK Fe« SCQ^E MflOe 
/FAILUHC 0*TH 


00324 


740040 


E02 


HLT 


/FLAG 19 ON ILLEGALLT 


00329 


600321 




JMP 7ST2 




00326 


103002 


OK 


J'^S SCOPE 


/CHECK roR SCOPE MODE 


00327 


600331 




Ji-P TST3 


/SUCCESS Path 


0033? 


600321 




JMP TST2 
.EJECT 





PACE 4 19HSR HSR15 



e033i 


777763 


00S32 


040013 


00333 


000000 


?e334 


102767 


80335 


700110 


00336 


741000 


0033T 


600357 


00340 


700101 


00S41 


600347 


00342 


440013 


00343 


600333 


00344 


103002 


00349 


600400 


00346 


600333 


0B347 


103002 


00350 


741000 


00351 


600333 


00352 


200333 


00353 


543015 


00354 


740040 


00355 


740040 


00356 


600331 


0035? 


103002 


00360 


740040 


00361 


600333 



/ 

/TEST 3, ILLEGAL «SF TEST AND 
/SET Flag with :^SA A\0 Rjb 
/SKIP ONRSr 

/ 

TST3 LAW -15 

OAC 13 
/ 

RSAB 

J^^S STAL70 

700110 

SKP 

JMP SKPERR 

PSr /TLAG SHOULD BE sET 

J^P ER3 

ISI 13 

JMP RSAB 

J«S SCOPE /SUCCESS PaTIh 

jMP TST4 

j¥P TST3*2 
ER3 J"S SCOPE /EPROR PaTM 

SKP 

JMP TST3*2 

LAC RSAB 

SAO CKRSA 
EA03 HLT /TLAC NOT SETTING AFTER RSA 

EB03 wL^ /FLAG NOT SE'TImc afteR «SB 

jMP TST3 
SKPERR JMS SCOPE 
E04 HIT /ILLEGAL RSA OR RSB 

jMP RSAB 

.EJECT 



PAmr 



19H8M 



HSKIS 







/TEST 


4. RESET FLAG 


00400 


- 


/ 
TST4 


,LOC 400 


90400 


203020 


L*C 


CKRRB 


00401 


(!40406 




DAC 


.♦5 


00402 


400333 




XCT 


PSAB 


00403 


700104 




9SF 




00404 


600403 




JMP 


.-1 


00405 


750000 




Ct* 




00406 


000000 




e 




00407 


043021 




DAC 


STORl 


00410 


700101 




Rsr 




004H 


600432 




JMP 


OKA 


0B412 


103002 




JMS 


scot»t 


00413 


741000 




SKP 




00414 


600402 




JMP 


TST4*2 


00415 


203027 




LAC 


riAc 


00416 


740200 




S!A 




00417 


600425 




JMP 


.•6 


00420 


200333 




L*C 


RSA3 


00421 


543019 




SAO 


CKRSA 


00422 


740040 


EA05 


HUT 




00423 


740040 


EB05 


HUT 




8M24 


600402 




JMP 


TST4*2 


00425 


200333 




LAC 


RSAB 


0f<26 


943019 




SAO 


CKRSA 


0i«2r 


740140 


EA06 


HLT 




-00430 


740040 


£006 


HLT 




00431 


600402 




JMP 


TST4*2 


00432 


103002 


0K4 


J«S 


SCOPE 


00433 


741000 




Stt^ 




004 }4 


&00402 




JKP 


TST4*2 


004 30 


200027 




L-AC 


FLAG 


00436 


740100 




SIA 




004 J7 


60B900 




Jt*^ 


TST9 


00440 


443027 




IS2 


FLAG 


00441 


203017 




LAC 


OKRcr 


00442 


600401 




JMP 


TST4*1 








.EJECT 



WITH RRB AND RCF 



/RRB OR RCf 

/CHECK RESET OF FLAG 

/E«ROR P*Th, flag STILL ON 



/CHECK FOR RRB OR RCF 
/RCF 

/CHECK FOR RSA OR RSB 

/ERROR. FLAG STILL SET 
/AfTCR RRB WITH RSa 
/FLAG STILL SET aFtER 
/RRB WITH RSB 



/ERROR, FLAG STILL SET 
/AFTER RCF WITH rSa 
/FLAB STILL SET aFtER 
/RCF WITH RSB 

/SUCCESS FaTh 



/CHECK FOR RRB OR RCF 
/SET FLAG 



PACE 



liHSR 



MSR15 



00900 



ZZ9ZZ 


143027 


00901 


400333 


00502 


70B101 


00903 


600902 


00904 


400333 


00903 


700101 


00906 


600917 


00907 


103002 


00910 


741000 


00511 


600900 


00912 


200333 


00913 


943015 


00914 


740040 


00919 


740040 


00916 


600900 


00917 


103002 


00920 


741000 


00921 


600501 


00922 


700101 


00923 


600S22 


00924 


600600 



/ 

/TEST 
/ 

/ 

TST5 



EAll 
EBll 

0K5a 



5, RESET rt*C; WiTu RS* OR RSB 
iLOC 500 



OEM rt*c 

XCT nSAB 

JMP ,-1 

XCT RSAB 

Rsr 

JMP 0K9A 

J"S SCOPE 

SKP 

JMP TST5 

LAC RSAB 

SAD CKRSA 

HLT 

HLT 

JMP TST5 

JMS SCOPE 

SKP 

JMP 

RSP 

JMP ,-1 

JMP TST6 

.EJECT 



TST5*1 



/RESET FLAC 



/RESET riAC 



/ERROR, Flag still on 



/DID NOT CLEAR wiTw BSA 
/DID NOT CLEAR WITH flSB 



/WAIT FOR Flag 



P'tun. 



1»HS» 



■JSR13 



za»9§ 

0i«00 

00«rt 
00«fa 

00403 

00«04 

00A09 

00604 

00607 

00610 

00611 

00612 

00613 

00614 

00619 

00616 

00617 

00620 

00621 

00622 

00623 

00624 

00629 

00626 





/'Est 


}, tM»FP9uPT 




r 

/ 

TST6 


.LOC 600 


203063 


L*C JMP5 


(440001 




DAC 1 


703302 




CAf 


700042 




ION 


102767 




JMS STAL70 


102767 




JMS STAL70 


102767 




JMS STAL70 


103002 




JHS SCOPE 


741000 




SKP 


600602 




JMP TST6*2 


203069 


tsrint 


LAC JMP6 


040001 




OAC 1 


700042 




ION 


400333 




XCr RSAB 


102767 




JMS STAL70 


103002 




JHS SCOPE 


741000 




SKP 


600618 




JMP TSPINT 


203019 




LAC CKPSA 


940333 




SAO RSAB 


74tl040 


EAU 


HIT 


740040 


EB16 


HIT 


600612 




JMP TSRINT 
.rjECT 



TEST 



/WAIT roR ILLEGAL iNT 

/OK, CHECK FOR SCOPE MODE 
/SCOPE 



/WAIT Tor INT 
/EBROR, NO INT 

/SCOPE 



/NO INT USING RSA 

/NO INT USING PSa 



'ASE 8 15HSR HSRiS 

/INTERRUPT SERVICE «OUTlNiE 

00627 103002 IL.INT JMS SCOPE /CHECK FOR SCOPE MODE 

00630 741000 SKP 

00631 600602 JMP TST6*2 /SCOPE 

00632 700314 lORS /READ 1/0 STATUS 

00633 503160 AND (200000 

00634 740200 SZA /SEE IT REAQIR TlAG SET 

00635 740040 E16B HUT /READER FL*C SET 

00636 700314 lORS 

00637 740040 E16C HLT /SPURIOUS INT, AC»I/0 STATUS 

00640 600602 JI*P TST6*2 

00641 103002 TSRFlG JHS SCOPE /RETURN fROM INT 

00642 741000 SKP 

00643 600612 JMP TSRJNT /SCOPE 

00644 700314 lORS /I/O STATuS 

00645 503161 AND (177777 

00646 741200 SNA /MAKE SURE READER CAUSED INT, 

00647 600653 jMP 0K7 /SUCCESS PATH 

00650 700314 lORS 

00651 740040 E16D HIT /SPURIOUS iNT, AC«I/0 STATUS 
00692 600612 JHP TSRINT 

00653 200690 0K7 LAC E160-1 

00694 040001 DAC 1 

00699 700002 lOr 

00696 601000 JMP TSr? 

.EJECT 



PASC V 

01,000 



01P00 
01001 
01002 

01003 
01004 
01009 
01006 
01007 
01010 
01011 
01012 
0101S 
0101* 
01019 
0101« 

010ir 

01020 



iSHSIt 



790004 
903162 
741200 
601063 
703302 
203163 
040090 
794002 
740020 
709504 
740000 
740000 
103002 
601022 
601007 

103002 
740040 



HSR19 



.toe 1000 



01021 601007 



/TEST 7, TEST API *ND «E*OER 

TST7 L*S 

AMD (400Z 

JMP 0KBA*4 

c*r 

L*C (JHp E17-1 
OAC 50 
L0P8 ST|.!CLA 
PAR 
!SA 
NOP 
^0» 

JMS SCOPE 
JKP 0«8 
JMP t0^8 



/TEST ACS 8 
/NO API PRESENT 

/ERROR PATH 

/50 IS READER CHANNEL 

/TURN ON API 



/CHECK rOR LOOP 
/NO LOOP 
/LOOP 



/ 

C17 



JHS SCOPE 
HIT 

J.MP L0P8 



/COME HERE If A BREAK 
/ERROR. API PROM RfAOCR 
/WITH NO READER PLAS, 



/NOW ATTEMPT AN API BREAK. THE READER SHOULD 

/9RING UP API LEVEL 2 ACTIVE AND BREAK TO 90. 

/ 
(8 LAW .40 

/USE AS COUNTER 



/STORE HUT IM LOCS 
/40 THRU 77, 



01022 


777740 


0K8 


tAW .40 


01023 


043021 




OAC STORl 


01024 


20»164 




LAC J37 


01029 


040010 




OAC 10 


01026 


20316f 




LAC (HLT 


01027- 


060010 




DAC* 10 


01030 


44Sffn 




m STORl 


01031 


6n027 




J^f ,-2 


01032 


703302 


/ 
LOPS A 


CAP 


01033 


TBil04 


R9A 


01034 


700101 




Rsr 


01039- 


601tS4 




JMF ,-1 


01036 


203166 




L»C (JMP ROR 


01037 


040090 




DAC 90 


01040 


7940B2 




STLICLA 


01041 


740020 




PAR 


01042 


7B9f«4 




ISA 


01043 


740900 




f^OP 


01044 


749000 




NOP 


01049 


740000 




NOP 


01046 


740040 


E18 


utT 


01047 


601047 




JMP . 



.EJECT 



/SET READER ^LAe 

/INITIALIZE LOC, 90 
/ENABLE API 



/ERROR. NO API BREAK 

/PROM readcRi Press 

/CONT, POR A SCOPE LOOP, 



PACE 10 



19H8R 



NSR19 







/RtTuR^ 


i HERE rROM CHa^NEi ADDRESS 50 


01250 


705512 


RDR 


705512 


/READ PRIORITY LEVELS 


eiesi 


903167 




AND (20000 


/MASK LEVEL 2 Bit 


01052 


740200 




SEA 


/SHOULDN'T BE 


01093 


601097 




JMP 0K8A 


/SUCCESS PATH 


01094 


103002 




JMS SCOPE 


/CHECK rOR LOOR 


01055 


740040 


£19 


HLT 


/ERROR, READER CAUSED 


0105S 


601033 


/ 

OKSA 


JMP L0P8A 


/API BREAK O.K.. BUT LEVEL 
/2 ACTIVE IS NOT SET. 


01097 


703302 


CAr 




01060 


103002 




JMS SCOPE 


/CHECK rOR LOOP 


01061 


741000 




SKP 


/NO LOOP 


01062 


601033 


/ 


JMP 1.0P8A 


/LOOP 


01063 


790004 


LAS 




01064 


503167 




AMD (20000 




01069 


740200 




S2A 


/CHECK TO LOOP TESTS 2"6 


211066 


601076 




JHP RSBlP*2 


/LOOP 


01067 


203016 




LAC CKRSB 




01070 


940333 




SAO RSA9 




01071 


601400 




JMP NOTAPE 


/NEXT TEST 


01072 


703302 




c*r 




01073 


600320 


rsblp 


JMP TST2.1 


/DO RSB TEST 


01074 


203016 


LAC CKRSB 


/RSB lOT 


01079 


040333 




OAC PSAB 




01076 


703302 




CAF 




01-077. 


~&0f321 




JMP TST2 





.EJECT 



^A6E U 15HSH HSR15 

/TEST 8, NO TAPE TEST 

01400 ,ioc i<ee 

/ 

\OTAPE WLT /REMOVE TAPE f»c» READER 

nSA /SELECT RE*OER 

LAW 1000 

JMS STALTa 

lORS 

AMD (1000 

S?A /iNO-TAPE' SHOULD BE SET 

JMP OKfLG 

JMS SCOPE 
EA20 HLT /ERROR. 'NO- TAPE" NOT SET, 

JMP NOTAPE*! 
OKFLC 10«S 

RAL 

SPA /READER fL*C SHOULD Bt SET 

JMP TSTRRB 

JMS SCOPE 
EA20B MLT /ERROR, READER FLAG DIDN'T SET 

JMP NOTAPE*! /wiTW 'NO-TAPE' sET 
TSTRrB RRB /CLEAR READER ^LAG WITN 'RRB' 

RSF /DID THE TLAS CLEAR? 

JMP PESETA /YES 

JMS SCOPE /NO 
EA20C HLT /READER ^lAG WOn'T CLEAR WITH "NO-TAPE" SET. 

JMP TSTRRB 
RESETA RSA /RESET TLAG 

LAW 1000 

JMS STAL70 
PRHLT3 HLT /REPLACE TAPE In ThE READE« 

lORS 

AND {1000 /MASK 'NO-TAPE' FLAG. 

SNA 

JMP OFFLINE /OK, FLAG CLEARED 

JMS SCOPE 
ERR20O HLT /E«RORi 'NO-TAPe' FLAG DIDN'T CLEAR 

JMP PRHl,T3*i 
OFFLINE HLT /TURN READER 'OFF' 

lORS 

AND (1000 

SEA /DID NO-TaPE SEtt 

JMP PHLT3A /VES, END OF TEST 

JMS SCOPE 
ERR20E HLT /ERROR, 'NObTAPE' DIDN'T SET 

JMP OFFLINE*! /Wpw READER 'OFF' 
PHLT3A HLT /OK, END QF 'NO-TAPE' TEST 

.EJECT 



01A00 


740040 


01*01 


700104 


01*02 


761000 


01403 


102767 


Zi*94 


700314 


01405 


90S170 


01406 


740200 


01407 


601413 


01*10 


10S002 


01*11 


740040 


01*12 


601401 


01*13 


700314 


01*1* 


740010 


01*19 


741100 


01<1« 


601422 


01*17 


103002 


01*20 


740040 


01421 


601401 


01*22 


700112 


01*23 


700101 


01*24 


601430 


01*25 


103002 


01*26 


740040 


01427 


601422 


01*30 


700104 


01431 


761000 


01432 


102767 


01433 


740040 


0143* 


700314 


01*39 


903170 


01436 


741200 


01437 


601443 


01440 


103002 


01441 


740040 


01448 


601434 


01443 


740040 


01444 


700314 


01449 


903170 


01*46 


740200 


01*47 


601483 


01*90 


103002 


01491 


740040 


01492 


601444 


01453 


740040 



PACE 12 



iSHSR 



HSR15 







/ 
/ 
/RANDOf 


* NUMBER GENERATOR 


01454 


0000021 


GCNRAN 





JI1455 


201502 




LAC RANDEX 


01496 


943171 




SAD (RANTBL*10 


01457 


741000 




SKP 


01460 


601470 




JMP RANTAO-l 


01461 


203172 




LAC (RANTBL 


01462 


041902 




DAC RANOEX 


01463 


201901 




LAC RANCON 


01464 


744010 




CLLIRAL 


0l«65 


741400 




S!L 


01466 


342027 




TAO ONt 


»1467 


041901 




OAC RANCON 


01470 


221902 




lac> randex 


01*71 


341901 


RANTAD 


TAO RANCON 


01<72 


061902 




OAC* RANOex 


01473 


201914 




LAC RANSAV 


01474 


740020 




RAR 


01475 


361902 




TAO« RANOEX 


01476 


041914 




DAC RANSAV 


01477 


441902 




IS2 RANOEX 


01900 


621494 




JHP* 6ENRAN 


01501 


12S496 


/ 

RANCON 


123496 


01902 


001913 


RANDEX 


RANTBL*10 


01903 


694S21 


RANTBL 


654321 


01904 


361416 




361416 


01»0S 


099363 




099363 


01906 


944060 




946060 


01907 


243039 




243039 


01910 


762972 




762572 


01911 


493237 




453237 


01912 


190214 




190214 


01913 


000000 







01514 


000000 


RANSAV 



.EJECT 



^a9« 19 



iSHSR 



HSNIS 







/TAPE L 


00' SYNC ROUTINE 


ezrzp 






.IOC 2?03 


^2t^e 


000000 


2 


02001 


20S17S 




LAC (-3001 


ezffl! 


!;420?e 




D*C DELAY 


02003 


700104 




«9A 


02004 


700101 




Rsr 


02009 


602004 




JMP ,-1 


02006 


700112 




RRB 


02007 


741200 




SNA 


02010 


602ff20 




JMP insync 


02011 


442026 




ISZ DELAY 


02012 


602003 




JMP SYNC*3 


02fl3 


20S061 




LAC PniNT3 


0101« 


040011 




OAC 11 


02019 


102962 




JMS MSCl 


0201* 


740i4« 


PRHLT4 


HLT 


02017 


602001 




JMP SYNC*1 


02020 


777679 


1NSY^C 


LAW -103 


02t21 


043122 




DAC STDR2 


0^022 


143023 




DIM ST0R2A 


02123 


777776 




LAW .2 


02024 


043029 




OAC ST0R4 


02029 


622000 




JMP« SYNC 


02026 


000000 


DELAY 


S 


02027 


000001 


ONE 


1 


0tfS0 


000377 


TH77 


377 

.EJECT 



/CHECK FOR SYNC CHAR. 



/TIMED OUT 



/BINARY COUNT RSB 



/ALPHA 



PACE 14 



19HSI? 



MSR19 



02100 



02100 


102000 


ei2101 


760301 


02102 


043067 


02103 


202244 


02104 


043024 


02109 


203041 


02106 


040011 


02107 


700104 


02110 


700101 


02111 


602110 


02112 


700112 


02113 


043021 


02114 


943023 


02115 


602129 


02116 


103002 


0211T 


741000 


02120 


602123 


02121 


108609 


02122 


102962 


02123 


103010 


02124 


740040 


02129 


102246 


02126 


443024 


0212? 


602109 


02130 


103002 


02131 


602133 


02132 


602100 



/POP-9 HIGH SPEED REaDER DIAGNOSTIC . TapE 2 
/ 

/DATA CHECK ROUTINE TOR qSA, RSB AND RCF 

/rsa and RRB 



/ 

rsack 



OKRSA 



,LOC 2100 

JMS SYNC 
L*W 301 
DAC INn*! 
LAC BLOCK 
DAC ST0R3 
LAC PRINT! 
DAC 11 
RSA 
RSP 

JMP .-1 
RRB 

DAC STORl 
SAO ST0R2A 
JMP OKRSA 
JMS SCOPE 
SKP 

JMP .•S 
JMS SETUPl 
JMS MSGl 
JMS ERHtT 
HLT 

JMS CKTAPE 
ISZ ST0R3 
JMP RSACK*5 
JHS SCOPE 
JMP RSARCr 
JMP RSACK 
.EJECT 



/READ A WORD 
/COMPARE 

/ERROR 



/CHECK FOR END or BLOCK 
/CHECK FOR SCOPE MODE 
/SCOPE MODE 



^A6C li> 



ISHSR 



HSRIS 







/RSA *ND RCF 






02133 


102000 


PS*RCf 


JMS 


SYNC 




02134 


760302 




LAW 


302 




02139 


043067 




OAC 


!Nri*i 




02136 


202244 




L*C 


BLOCK 




02137 


043024 




OAC 


ST0R3 




02140 


209041 




LAC 


PRINT! 




02141 


040011 




DAC 


11 




02142 


700104 




RSA 






02143 


700101 




RSF 






02144 


602143 




JMP 


.-1 




92149 


79»t»0 




CLA 






0214* 


700102 




Rcr 




/READ CHAR. 


02147 


043021 




OAC 


STORl 




02190 


943023 




SAO 


ST0R2A 


/COMPARE 


02191 


602161 




JMP 


OKPcr 




02192 


103002 




JMS 


SCOPE 




02193 


741000 




SKP 






02194 


602197 




JMP 


.*3 




02199 


102609 




JMS 


SETUPl 


/ERROR 


02196 


102962 




JMS 


MSCl 




02197 


103010 




JMS 


ERWLT 




02160 


740040 




HLT 






02161 


102246 


OKBCF 


JMS 


CKTAPE 




02162 


443024 




ISZ 


ST0R3 


/CH 


02163 


602140 




JMP 


PSARCF»9 




02164 


109002 




JMS 


SCOPE 




02169 


602167 




JMP 


RSBCK 




02166 


60213J 




JMP 


RSARCF 










.EJECT 





/CHECK FOR CNO of BLOCKS 



PACE 16 


19HSR 


HSR19 












/RSB A\D RRB 




02167 


102000 


rsbck 


JMS 


sv^c 




0217? 


760303 




LAW 


303 




02171 


043067 




DAC 


iNri*i 




02172 


202249 




LAC 


BLOCKA 




02173 


043024 




DAC 


ST0R3 




02174 


700144 




RSB 






02175 


700101 




RSF 






02176 


602179 




JMP 


• -1 




02177 


700112 




RRB 




/READ CHAR, 


02200 


043021 




DAC 


STORl 




02201 


943022 




SAO 


ST0R2 


/COMPARE 


02202 


602207 




JMP 


.♦5 




02203 


103002 




jMS 


SCOPE 




02204 


741000 




SKP 






02209 


741000 




SKP 






02206 


102694 




JMS 


SETUP3 




02207 


102246 




JMS 


CKT*PE 




02210 


443024 




ISH 


STORS 




02211 


602174 




JfP 


RSBCK»9 




02212 


103002 




jMS 


SCOPE 


/CHECK Fl 


02213 


602219 




JMP 


RSBRCr 




02214 


602167 


/ 


JMP 


RSBCK 








/RCr AND RSE 


) 




02219 


102000 


RSSRcr 


JMS 


SYK'C 




02216 


760304 




LAW 


304 




02217 


049067 




DAC 


INFl*! 




02220 


202249 




LAC 


BLOCKA 




02221 


043024 




DAC 


ST0R3 




02222 


700144 




Rsa 




/SELECT 


02223 


700101 




Rsr 






02224 


602223 




JMP 


.-1 




02223 


790000 




CLA 






02226 


700102 




Rcr 




/READ 


02227 


043021 




DAC 


STORl 




02230 


543022 




SAD 


ST0R2 


/COMPARE 


02231 


602236 




JMP 


.♦5 




02232 


103002 




JMS 


SCOPE 




P2233 


741000 




SKP 






02234 


741000 




SKP 






02235 


102694 




JMS 


SETUP3 




02236 


102246 




J"S 


CKTAPE 




32237 


443024 




IS? 


srcRs 




0224? 


602222 




JMP 


RSBRCF*S 




02241 


103002 




JMS 


SCOPE 


/CHECK FC 








.rjECT 





Pkit 



iSHSX 



HSR15 



22242 


740040 


PRHLT5 


MLT 


J'2243 


602219 




JMP RSBRCr 


J2244 


777401 


BLOCK 


777421 


?2245 


777753 


BLOCKA 


777753 


0224« 


0e«e0f 


/ 

CKTAPE 


I 


32247 


209f22 




LAC ST0R2 


222S0 


343174 




TAD (747475 


022S1 


9143022 




OAC ST0R2 


02252 


203123 




LAC ST0R2A 


02253 


740001 




CMA 


02254 


502030 




AND TH77 


022^ 


04U23 




DAC ST0R2A 


e225« 


44S029 




ISE ST0R4 


03297 


622246 




JMP. CKTAPE 


03260 


203023 




LAC ST0R2A 


022»1 


342027 




TAD ONE 


?22«2 


902030 




AND TH77 


92263 


049123 




DAC ST0R2A 


02264 


77r7?6 




LAW -2 


02269 


043029 




OAC ST0R4 


?326« 


622246 




JMP. CKTAPC 
, EJECT 



/END OF DATA TESTS 



/COMPLEMENT BINaRT 

/COMPLEMENT ALPHA 

/BUHP COUNT ir 
/ALPHA MODE 



PACE 18 



19HSR 



HSRIS 



/VARIABLE READER SPEED CnNTROU* ACS 2-17 SET SPEED 



02400 



02400 


102000 


02<B1 


14S023 


02402 


750004 


02403 


90S161 


02404 


740001 


02409 


("42949 


02406 


442949 


02407 


602406 


02410 


700104 


02411 


700101 


«2412 


602411 


02413 


700112 


02414 


943023 


02419 


602431 


02416 


043021 


02417 


103002 


02420 


741000 


02421 


602431 


02422 


102609 


02423 


203041 


02424 


342027 


02429 


040011 


02426 


102962 


02427 


103010 


02430 


740040 


02431 


102246 


02432 


602402 



.LOC 2400 
/ 

VARSPD JMS SYNC 






D2M ST0R2A 




LAS 


/LOAD ACS 


AND (177777 




CMA 




DAC STLSTR 




IS? STLSTR 


/DfLAT 


JMP ,-l 




RSA 


/READ 


RSr 




JMP ,,1 




RRB 




SAD ST0R2A 


/COMPARE 


JMP VARENO 




DAC STORl 




JMS SCOPE 


/( 


SKP 




JMP VARENO 




JMS SETUPl 




LAC PRINT! 




TAD ONE 




DAC 11 




JMS MSGl 




JMS CRHLT 


/C 


HLT 




UREnO JMS CKTAPE 




JMP VARSP0*2 




.EJECT 





/CHECK FOR SCOPE MODE 



/CHECK FOR HALT ON ERROR 



PkCi iv 



I'HtR 



HSKIS 







/RANDOM 


READ *^0 ST*LL 


02900 




/ 

hskp 


,LOC 29a? 


02900 


102000 


JMS SVNC 


02901 


101494 




JHS GENR4N 


i2M2 


905179 




AND ;:' 


029f3 


740001 




CMA 


0^904 


04294» 




0*C LOOP 


02909 


102912 




JMS READ 


0290« 


442946 




ISZ LOOP 


02907 


602909 




JMP .-2 


02910 


703302 




CAr 


02911 


602901 




JM^ HSKP*1 
.EJECT 



/MAX, OF 17 TRAmeS per block 



/READ One frame 
/DONE Ir Skip 

/riRE The stop delay 



fAOE 80 


19HSR 


H5R15 












/READ 


AND COMPARE LOOP 




02512 


000000 


PEAD 


? 






02513 


700104 




RSA 




/READER IN ALP^A 


?2514 


700101 




psr 






02515 


602914 




Jl-P 


,-1 




02916 


700112 




RRB 




/READ A CHAR, 


02517 


043021 




D4C 


STORl 




02920 


943023 




SAO 


5T0R2A 


/COMPARE 


02921 


602534 




JMP 


TAPECK 




02922 


103002 




JMS 


SCOPE 




02923 


741000 




SKP 






02924 


602934 




JMP 


TAPECK 


/INHIBIT PRI^T 


02929 


103609 




JMS 


SETUPl 


/BAD 


02926 


203041 




L*C 


PRINTI 




02927 


342027 




TAD 


ONE 




02930 


040011 




DAC 


11 




02931 


102962 




JMS 


MSCl 




02932 


103010 




JM5 


EPHLT 




02933 


740040 




HLT 






02934 


102246 


TAPECK 


JMS 


CKTAPE 




02939 


622912 




JMP« 


> READ 


/CHECK FOR END 






/CONSTANTS AND VARIABLES 




02936 


777736 


C0N7 


-42 






02537 


000020 


CONS 


20 






02940 


000040 


C0N9 


40 






02941 


000777 


lnclim 


777 






02942 


777697 


H120 


-121 






02943 


777776 


Ml 


■ 2 






02944 


777747 


M30 


-31 






02949 


000000 


STLSTR 









02946 


000000 


LOOP 









02947 


000000 


LOOPA 









02990 


000260 


N260 

/ 

CBLr 


260 






02991 


000000 









02992 


760219 




LAW 


215 




02953 


700406 




TLS 






02994 


700401 




Tsr 






02955 


602994 




JMP 


,•1 




02556 


542960 




SAD 


.♦2 




02997 


622951 




J^'P* 


CRLf 




02560 


760212 




LAW 


212 




02561 


602553 




JMP 


CRLF'*2 










.EJECT 





PkU t\ 



i.9¥fV( 



Hsns 







/TTV PBINT ROUTINES 


Z2562 


000000 


NtSCl 


ei2;63 


220011 


L*C» 11 


02»44 


70«40t 


TLS 


02f*f 


343««4 


TAD END 


029t« 


74iat* 


SfA 


»»ff7 


74lff00 


SKP 


mn 


»02f74 


jMP cnw*iT 


B2fn 


70»401 


Tsr 


02972 


S0W71 


JMP ,-t 


02973 


Ai29«3 


JMP MSG1*1 


«t974 


777781 


CRWAIT L*W -1^ 


if57f 


04MS1 


DAC WOKKl 


0297* 


770000 


LAW .10000 


0ftfT7 


04Sfl3ff 


DAC WORK 


0t«0« 


44»S0 


IS2 WOPK 


0I«»1 


« 02*00 


JMP ,-1 


08ft«2 


443*31 


ISI WOKKl 


02003 


60297* 


JMP CPWA1T*2 


02*04 


«229*2 


jMf* MS61 

y 


02*01 


0f0fl00 


SETUPl 


02*0* 


203081 


LAC STOPi 


01*07 


90309* 


AND MSK3 


02010 


101*37 


JMS ROTAT* 


02011 


043107 


DAC SADl 


0t*l« 


201121 


LAC STOP! 


0f«lS 


903099 


AND MSK2 


0f*l* 


112*4* 


JMS R0TAT3 


01* If 


043111 


DAC BA01*1 


01*1* 


203121 


LAC 5T0R1 


02*17 


903094 


AND MSKl 


01*20 


342990 


TAO N200 


02081 


0*3111 


DAC iACl«a 


02*21 


203f2S 


LAC STONSA 


0I0IS 


9ISII0 


AND WS«3 


0f»2* 


lil*S7 


JMS BOTAT* 


01*29 


04tt7» 


DAC SOOOl 


0U2* 


2f9f2S 


L*C STflR2A 


02027 


903049 


*Nfl MSK2 


02*30 


102*4* 


JMS R0TAT3 


02*31 


043077 


DAC 00001*1 


02*32 


2»S»t$ 


LAC ST0R2A 


?2*33 


903094 


AND MSKl 


02*34 


34fnf 


TAO N260 


02*39 


043100 


DAC C00D1*2 


92*3* 


622*0t 


JMP. SETUP! 
.EJECT 



/SAD DATA 



PA6e 22 


19HSR 


HSRig 


02637 


000000 


RaTAT6 


02«40 


742020 


''"'1 RTH 


02641 


742020 




0264? 


742020 




02643 


342990 


T*0 N260 


02644 


744000 


CLl 


02649 


622637 


JMP. R0TAT6 
/ 
R07AT3 


02646 


000000 


02647 


742020 


«TB 


026S0 


740020 


QAR 


02651 


342990 


TAD M260 


02692 


744000 


CLL 


02653 


622646 


JMP» R0TAT3 

/ 


02694 


000000 


/ 

SETUPS 


02699 


203067 


LAC lNri*l 


02656 


700406 


TLS 


02697 


700401 


TSr 


02660 


602697 


JMP ,mi 


02661 


203047 


L*C PRINT4 


02662 


040011 


DAC 11 


02663 


203022 


lAC ST0R2 


02664 


043023 


DAC ST0R2A 


02669 


102667 


J^S ,♦2 


02666 


602701 


jMp TYP£i 


02667 


000000 


TVPE2 


02670 


777773 


LAW >9 


02671 


043040 


DAC CNTA 


02672 


220011 


LAC« 11 


02673 


700406 


TLS 


02674 


700401 


TSP 


02679 


602674 


J^P 1-1 


02676 


443040 


ISZ CNTA 


02677 


602672 


JMP ,-9 


02700 


622667 


JMP« TVPE2 


02701 


777772 


TYPEl LAW ,6 


02702 


042766 


DAC AWAV 


02703 


203176 


LAC (700000 


02704 


903022 


AND S70R2 


02705 


744000 


CLL 


02706 


742010 


RTL 


02707 


742010 


RT|. 


02710 


342550 


TAD N260 


327U 


042765 


2AC TRBlES 


02712 


203022 


L*C ST0R2 


02713 


742010 


RTi. 


02714 


740010 


PAL 


02719 


043022 


D*C ST0R2 


02716 


102720 


J'-S TVPE3 



RTR 



»*U I. 



IIWSM 



Msms 



il'>i 


000ttf ryica 


ttvai 


2t>70| 


LAC TRiLCS 


?»7a2 


700400 


TLS 


»8Ta3 


700401 


Tsr 


»«'}« 


0fl7>S 


JH» .-1 


9>TtS 


44tH0 


|8i AWAY 


»2'}« 


0ltl>t 


jMP» TYPES 


»8TtT 


77»»72 TYPE4 LAW -6 


0>T3V 


041760 


DAC AWAY 


§»?si 


112007 


JHS TYPE2 


027S2 


20317A 


LAC (700000 


027SS 


903121 


AND STORl 


09794 


744000 


CLL 


t273f 


742010 


RTI. 


9a73t 


742010 


RTL 


»t757 


342S9f 


TAD N260 


01749 


042709 


OAC TROlES 


01741 


203021 


LAC STORl 


02742 


742010 


R7L 


02743 


740010 


RAL 


01744 


043021 


OAC STORl 


0274f 


102747 


JMS TY0I9 


0274ft 


002732 


JMP TYPE4*3 


02747 


000000 TYPE9 


03790 


302749 


LAC TRBLES 


02791 


7B0400 


TLJ 


02792 


700401 


Tsr 


02793 


002792 


JMR ,-l 


02794 


441700 


ISi AWAY 


02799 


022747 


JHP* TYPE9 


027fl* 


112991 


JM8 cRir 


02797 


3l3f2S 


LAC STQR3A 


02700 


043022 


OAC $T0R2 


02701 


102707 


JMS STAL70 


02702 


10'flt 


jMj IRHJ.T 


02703 


740040 


HIT 


02704 


082094 


JHf» SETUC3 


02709 


000000 TABLES 


027*0 


000000 AUAY 






.EJECT 



PACE 24 



19H5R 



HSR19 



02767 
02T78I 
02771 
02772 
02773 
02774 
02775 
02776 
02777 
03000 
03001 

03002 
03003 
03004 
03009 
03006 
03807 

03010 
03011 
03012 
038*13 

03014 



000000 
203001 
0430J0 
770000 
5143031 
443031 
602774 
443030 
602772 
622767 
777771 

000000 
790004 
742010 
741400 
443002 
623002 

000000 
790004 
740100 

443010 
623010 



STAL70 



m6 

/ 

SCOPE 



/ 

ERHLT 





LAC M6 
OAC WORK 
LAM «10000 
OAC WORKl 
ISE WORKl 
JMP .-1 
IS2 WORK 
JMP STAl70*3 
JMP» STAL70 
-7 



LAS 

RTL 

Sil 

ISZ SCOPE 

JMP» SCOPE 



LAS 

SHA 

iSi ERHuT 

JMP» CRhlT 

.EJECT 



/70 MS STALL 



/CHECK rOR SCOPE MODE 



/YESi Scope mode 



/CHECK FOR HALT ON ERROR 



/NO HALT 



P%K 7. 



19H8A 



HSR15 







/CONSTANTSi VARIABLES ETC, 
1 


PI3P15 


720124 


f 

CK«?SA 


70?ie4 


/RSA lOT 


03C16 


70!^144 


CKRSB 


7?0144 


/RSB lOT 


05017 


700102 


CKRCF 


700102 


/RCF lOT 


0302? 


700112 


CKHRS 

/ 

STORl 


700112 


/RRB lOT 


0S»1 


0000«0 





/THESE NEXT 6 FOR 


09032 


000000 


ST0R2 





/OATa word STORAGE 


03023 


000000 


ST0R2A 


(1 




03024 


000000 


ST0R3 


? 




03025 


000000 


ST0R4 







03026 


000000 


ST0R5 


^ 




03027 


000000 


riAG 





/RSA, RSb FtAC 


03130 


000000 


WORK 





/THESE 3uStD 


03f3l 


000000 


wORKI 


? 


/IN TIMING LOOPS 


03032 


000000 


N0RK2 







BTTWT- 


TrffTT" 


CJB^r 


-im* 


/TrtEsE' Four used 


09034 


776944 


C0N3 


.1234 


/IN TIMKG LOOPS 


03t3f 


771623 


C0N9 


.6155 




0S03« 


003777 


C0N6 


3777 




03«37 


000000 


COUNTA 







03040 


000000 


CNTA 







03041 


003066 


PRlNTl 


INfl 




03042 


000000 


BLSTOR 





/BLOCK LENGTH 


03043 


000000 


CHACNT 





/CHARACTER COUNTER 


03044 


000000 


CNTCN 





/COUNT or TEN 


0)049 


000000 


storlm 





/ERROR CnUNT 


0304« 


000000 


LASTAL 





/LAST STALL tiMC 


03047 


009139 


PRINT4 


INf 4 




03050 


760301 


/ 

A 


760301 


/TTV CMAr, a 


09091 


760301 


B 


760302 


/DITTO B 


09091 


760909 


C 


760303 


/DITTO C 


09093 


760 90i 





760304 


/OltTO 


09094 


000007 


MSKl 


7 




09099 


000070 


MSK2 


70 




0909« 


000300 


MSK3 


300 




03097 


000700 


MSK4 


700 




03060 


007000 


MSK9 


7000 




03061 


003114 


PRINTS 


iNr3 




09062 


003149 


PRINTS 


INfS 




03063 


60i«e7 


JMP5 


JHP HINT 


03064 


777H9 


ENO 


777563 




09069 


600641 


JMP6 


JMP tsrflg 








.EJECT 





PACE 36 


19H8R 


HSR19 
/TTY 


PRINT ROUTINES 




03066 


000000 


INfl 







03067 


000000 




Z 


/AiBfCi 


03?70 


000240 




240 


/SPAcr 


03071 


000307 




307 


/C 


03072 


000317 




317 


/O 


03073 


000317 




317 


/O 


03074 


000304 




304 


/D 


03075 


000240 




240 


/SPACE 


03076 


000330 


GOOD! 


330 


n 


03077 


000330 




330 


/x 


03100 


000330 




330 


/x 


03101 


000240 




240 


/SPACE 


03102 


000240 




240 


/SPACE 


09103 


000302 




302 


/B 


03104 


000301 




301 


/A 


03105 


000304 




304 


/D 


03106 


000240 




240 


/SPACE 


03107 


000330 


BAOl 


330 


tt 


03110 


000330 




330 


/X 


03111 


000330 




330 


/x 


03112 


000212 




212 


l\J 


03113 


000215 




215 


/CR 


03114 


000000 


INf3 







03115 


000303 




303 


/C 


03116 


000301 




301 


/A 


03117 


000316 




316 


/N 


03120 


000316 




316 


/N 


03121 


000317 




317 


/O 


03122 


0-00324 




324 


/T 


03123 


000240 




240 


/SPACE 


03124 


000323 




323 


/S 


03125 


000331 




331 


/Y 


03126 


000316 




316 


/N 


03127 


000303 




303 


/C 


03130 


000212 




212 


/LP 


03131 


000215 




215 

.EJECT 


/CR 



OR 



vt 


1«MM 


H0«i9 






139132 


00««00 


lNf4 







01133 


0t03V7 




307 


/6 


93194 


000317 




317 


/O 


09139 


000317 




317 


/O 


09194 


000904 




304 


/O 


03137 


0*0940 




240 


/S^ACC 


B9S41I 


0i«»4fl. 




340 


/SPACE 


99Ui 


000302* 




302 


/B 


0914a 


0V0901 




301 


/A 


09U3 


«Vt304 




304 


/D 


01144 


000240 


J 


240 


/SPACE 


09149 


000000 


iNr9 







0914« 


000000 







it 


09147 


000«0« 







/x 


03190 


000*00 







/x 


«1191 


0«t2f7 




297 


/SLASH 


«lt92 


000323 




323 


/8 


03153 


009309 




309 


/E 


011*4 


0*09ff3 




303 


/C 


01199 


00ft4« 




240 


/SPACE 


f91»4 


0l*tl2 




212 


/Lr 


M197 


0«0219 


J 


219 


/C« 






1 


.rvo 




03100 


2V0««0 • 








03161 


177777 • 








«31*2 


M«i00 • 








B9103 


#01017 • 








01104 


0«»37 « 








«91*9 


7«M«0 « 








mti 


Hfft90 * 








01107 


020000 • 








01170 


Mfi00 * 








091T1 


00f9l3 • 








09172 


0tttBS • 








09173 


774777 • 








0«74 


V47479 » 








■09179 


*t*i£7 t 








09176 


700000 f 










8J1E»0 


1177 


NO IMOB LINKS 





